home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00696_bt tim.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  3.1 KB  |  129 lines
  1. on Spir_en_Etud
  2.   global gEtudAct, gChapAct, gEnLec1, gEnLec2, gOldCad, gScopeCh, gScopeSu, gScopeHi, gScopeDe, gScopeEnB, gScopeEnZ, gScopeTr
  3.   if gEnLec1 = 1 then
  4.     if gChapAct = "SU" then
  5.       if gEtudAct = "SU" then
  6.         gScopeSu(SetCadence, 1)
  7.       else
  8.         if gEtudAct = "HI" then
  9.           gScopeHi(SetCadence, 1)
  10.         else
  11.           if gEtudAct = "EN" then
  12.             if gEnLec1 then
  13.               gScopeEnB(SetCadence, 1)
  14.             end if
  15.           else
  16.             nothing()
  17.           end if
  18.         end if
  19.       end if
  20.     else
  21.       if gChapAct = "CH" then
  22.         gScopeCh(SetCadence, 1)
  23.         continue()
  24.       else
  25.         if gChapAct = "TR" then
  26.           gScopeTr(SetCadence, gOldCad)
  27.         else
  28.           if (gChapAct = "DE") and (gEtudAct = "lec") then
  29.             gScopeDe(SetCadence, 1)
  30.             set the visible of sprite 2 to 0
  31.           else
  32.             if gChapAct = "PH" then
  33.               gScopePh(SetCadence, gOldCad)
  34.             else
  35.               nothing()
  36.             end if
  37.           end if
  38.         end if
  39.       end if
  40.     end if
  41.   end if
  42.   if gEnLec2 = 1 then
  43.     gScopeEnZ(SetCadence, 1)
  44.   end if
  45. end
  46.  
  47. on Etud_en_Spir
  48.   global gEtudAct, gChapAct, gEnLec1, gEnLec2, gOldCad, gScopeCh, gScopeSu, gScopeHi, gScopeDe, gScopeEnB, gScopeEnZ, gScopeTr
  49.   set gEnLec1 to 0
  50.   set gEnLec2 to 0
  51.   if gChapAct = "SU" then
  52.     if gEtudAct = "SU" then
  53.       if gScopeSu(GetCadence) = 1 then
  54.         gScopeSu(SetCadence, 0)
  55.         set gEnLec1 to 1
  56.       end if
  57.     else
  58.       if gEtudAct = "HI" then
  59.         if gScopeHi(GetCadence) = 1 then
  60.           gScopeHi(SetCadence, 0)
  61.           set gEnLec1 to 1
  62.         end if
  63.       else
  64.         if gEtudAct = "EN" then
  65.           if gScopeEnB(GetCadence) = 1 then
  66.             gScopeEnB(SetCadence, 0)
  67.             set gEnLec1 to 1
  68.           end if
  69.           if gScopeEnZ(GetCadence) = 1 then
  70.             gScopeEnZ(SetCadence, 0)
  71.             set gEnLec2 to 1
  72.           end if
  73.         else
  74.           nothing()
  75.         end if
  76.       end if
  77.     end if
  78.   else
  79.     if gChapAct = "CH" then
  80.       if gScopeCh(GetCadence) = 1 then
  81.         gScopeCh(SetCadence, 0)
  82.         set gEnLec1 to 1
  83.         pause()
  84.       end if
  85.     else
  86.       if gChapAct = "TR" then
  87.         if gScopeTr(GetCadence) <> 1 then
  88.           set gOldCad to gScopeTr(GetCadence)
  89.           gScopeTr(SetCadence, 0)
  90.           set gEnLec1 to 1
  91.         end if
  92.       else
  93.         if (gChapAct = "DE") and (gEtudAct = "lec") then
  94.           if gScopeDe(GetCadence) = 1 then
  95.             gScopeDe(SetCadence, 0)
  96.             set gEnLec1 to 1
  97.             set the visible of sprite 2 to 0
  98.           end if
  99.         else
  100.           nothing()
  101.         end if
  102.       end if
  103.     end if
  104.   end if
  105. end
  106.  
  107. on MouseClick
  108.   global gBoutons, gNumSpr, gSurvolPrec
  109.   beep()
  110.   gBoutons(relache, gNumSpr)
  111.   set gSurvolPrec to -1
  112. end
  113.  
  114. on mouseDown
  115.   global gBoutons, gNumSpr, g1erSprNav
  116.   set gNumSpr to g1erSprNav
  117.   gBoutons(appuie, gNumSpr)
  118. end
  119.  
  120. on mouseUp
  121.   global gNumSpr, gEtaSpir, gBoutons, g1erSprNav, gChapAct, gEtudAct, g1erSprLoc, gVidDuree, gVidTimPos, gActVideo1, gListBtTim
  122.   curseur(1)
  123.   if gNumSpr = g1erSprNav then
  124.     MouseClick()
  125.   else
  126.     pass()
  127.   end if
  128. end
  129.